00100	ARRAY D1(1601),D2(1867),D3(2053),D4(2251),D5(347),D6(113),D7(37);
00200	VARIABLE /Z,X,Y,/DIS,/SQDIS,/R,
00300	/AA,/BB,/CC,/DD,/EE,/FF,/GG,/HH;
00400	SRATE←25000;MAG←512/SRATE;SPEED←2;REVINIT←1;R←0;
00500	COMPILE;
00600	INSTRUMENT REV;
00700	REV1(R,1601,.802,D1);
00800	REV1(R,1867,.773,D2);
00900	REV1(R,2053,.753,D3);
01000	REV1(R,2251,.733,D4);
01100	REV2(U1+U2+U3+U4,347,.7,D5);
01200	REV2(U5,113,.7,D6);
01300	REV2(U6,37,.7,D7);
01400	R←0;
01500	OUTA←OUTA+U7;
01900	END;
02200	INSTRUMENT VLN;
02300	OSCIL(P11*P4*MAG,MAG/P2,P15);
02400	OSCIL(1,P12*MAG,F1);
02500	INTRP(P7*P5*MAG,P8*P5*MAG,P15);
02600	OSCIL(U3+(P13*U2*U3),P5*MAG+U1*U2,F1);
02700	OSCIL(P3,MAG/P2,P14);
02800	ZOSCIL(U5*P9,P4*MAG+U4+U1*U2,F1);
02900	ZOSCIL(U5*P10,P6*MAG+U4+U1*U2,F1);
03000	OUTA←OUTA+(U6+U7)*.5;
03050	R←R+(U6+U7)*.05;
03100	END;
03200	FINISH;